Sub WriteToLog(ByVal str)
        Dim fs As FileStream = New FileStream("c:\AfconParking\Parking.txt", FileMode.OpenOrCreate, FileAccess.Write)
        Dim m_streamWriter As StreamWriter = New StreamWriter(fs)
        m_streamWriter.BaseStream.Seek(0, SeekOrigin.End)
        m_streamWriter.WriteLine(str & Constants.vbLf)
        m_streamWriter.Flush()
        m_streamWriter.Close()
    End Sub